home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1370.dms / var1370.adf / Sources / ciaint2.pp / ciaint2
Text File  |  1990-09-13  |  615b  |  34 lines
  1. SetTempo
  2.     MOVEQ    #125,D0
  3.     MOVE.L    CIAAbase(PC),D1
  4.     BEQ.S    setesk3
  5.     MOVE.W    RealTempo(PC),D0
  6.     CMP.W    #32,D0
  7.     BHS.S    setemsk
  8.     MOVEQ    #32,D0
  9. setemsk    MOVE.W    D0,RealTempo
  10. setesk3    TST.W    SamScrEnable
  11.     BNE.S    setesk2
  12.     MOVE.W    #4964,TextOffset
  13.     MOVE.W    D0,WordNumber
  14.     JSR    Print3DecDigits
  15. setesk2    MOVE.L    CIAAbase(PC),D0
  16.     BEQ    Return1
  17.     MOVE.W    RealTempo(PC),D0
  18.     MOVE.L    TimerValue(PC),D1
  19.     DIVU    D0,D1
  20.     LEA    CIAAaddress,A5
  21.     MOVE.L    TimerFlag(PC),D0
  22.     BNE.S    SetTemA
  23.     MOVE.B    D1,ciatblo(A5)    ;and set the CIA timer
  24.     LSR.W    #8,D1
  25.     MOVE.B    D1,ciatbhi(A5)
  26.     RTS
  27.  
  28. SetTemA    MOVE.B    D1,ciatalo(A5)
  29.     LSR.W    #8,D1
  30.     MOVE.B    D1,ciatahi(A5)
  31.     RTS
  32.  
  33. RealTempo dc.w 125
  34.